home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 2.iso / heat_tst / ofn.cfg < prev    next >
Text File  |  1991-10-19  |  3KB  |  117 lines
  1. /*******************************************************************
  2. /*
  3. /*    OFN.CFG : Ｏh!FMＴＯＷＮＳ Net アクセス用コンフィグ･ファイル
  4. /*
  5. /*    TABSIZE = 4;
  6. /*
  7.  
  8. ofn_dial {
  9.  
  10. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  11.     DIAL     = "03-5488-1333";
  12. /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  13.  
  14.     while ( _OFN_ID = "" )
  15.     {    while ( _OFN_PASSWORD = "" )
  16.         {    ofn_setup()
  17.             if ( VAL ! 0 ) { return (-1) }
  18.         }
  19.     }
  20.     ID       = _OFN_ID;
  21.     PASSWORD = _OFN_PASSWORD;
  22.  
  23.     term_puts("ATZ\r")
  24.     term_switch( 5,"OK\r")
  25.     if ( VAL < 0 ) { return (-1)}
  26.  
  27. #    /* 第２モデモ初期化コマンド
  28. #    term_puts("AT%2400\r")
  29. #    term_switch( 5,"OK\r")
  30. #    if ( VAL < 0 ) { return (-1)}
  31.  
  32.     tel_call()
  33.     if ( VAL < 0 ) { return (-1)}
  34.  
  35.     term_switch( 30, "User ID: FM-")
  36.     if ( VAL < 0 ) { return (-1)}
  37.     wait(1)
  38.     term_puts("\(ID)\r")
  39.  
  40.     term_switch( 30, "Password:")
  41.     if ( VAL < 0 ) { return (-1)}
  42.     wait(1)
  43.     term_puts("\(PASSWORD)\r")
  44.  
  45.     return    (0)
  46. }
  47.  
  48. str_off {
  49.     wind_size_set(x,y,32,32)
  50.     wind_open()
  51.     graph("palette",7,0,0,0)
  52. }
  53. str_on {
  54.     graph("palette",7,176,176,192)
  55.     wind_close()
  56.     wind_init()
  57. }
  58.  
  59. ofn_setup {
  60.     ID       = _OFN_ID;
  61.     PASSWORD = _OFN_PASSWORD;
  62.  
  63.     if ( ID = "" )
  64.     {    ID = "GUEST";
  65.         PASSWORD = "";
  66.     }
  67.     mosget("sw","x","y")
  68.     menu_input("ID",9, x,y, C_CYAN, "Ｏh!FMＴＯＷＮＳ Net のID を入力してください。:")
  69.     if ( VAL < 0 ) {    return    (-1) }
  70.  
  71.     str_off()
  72.     menu_input("PASSWORD",9, x,y, C_YELLOW, "Ｏh!FMＴＯＷＮＳ Net のパスワードを入力してください。:" )
  73.     RET = VAL;
  74.     if ( RET < 0 ) { str_on();    return    (-1) }
  75.  
  76.  
  77.     PASSWORD2 = "";
  78.     menu_input("PASSWORD2",9, x,y, C_YELLOW, "もういちどパスワードを入力してください。" )
  79.     RET = VAL;
  80.     str_on()
  81.     if ( RET < 0 ) {    return    (-1) }
  82.  
  83.     if ( PASSWORD ! PASSWORD2 )
  84.     {    wind_open()
  85.         graph("symbol",65,56, 8,16, OPAQUE,C_RED,C_HWHITE, 1,0,0,1, "パスワードが違っています！！")
  86.         wait(5)
  87.         wind_close()
  88.         return    (-1)
  89.     }
  90.  
  91.     if ( RET < 0 ) {    return    (-1) }
  92.     strlen(PASSWORD)
  93.     LEN = VAL;
  94.     menu_yes_no(x,y,C_CYAN,"Ｏh!FMＴＯＷＮＳ Net の ID : FM-\(ID)\x0Aパスワードは \(LEN) 文字指定されています。\x0A\x0A           よろしいですか？")
  95.     if ( VAL > 0 )
  96.     {    _OFN_ID       = ID;
  97.         _OFN_PASSWORD = PASSWORD;
  98.         return    (0)
  99.     }
  100.     return    (-1)
  101. }
  102.  
  103. /*********************************************************************
  104. /*    行入力コマンド
  105. /*    
  106. /*    【入力】    TCMD    コマンド
  107. /*
  108. TERM_cmdline {
  109. }
  110.  
  111. /*******************************************************************
  112. /*    オートパイロット用 入力行チェックルーチン
  113. /*******************************************************************
  114. AUTO_line {
  115. }
  116.  
  117.